﻿Imports System.Data.OleDb
Public Class DangKi

    Private Sub btnOkDangKi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOkDangKi.Click
        Dim temp As KhachHangDTO = New KhachHangDTO()
        Dim bus As KhachHangBUS = New KhachHangBUS()
        temp.HoTen = txtHoTenDangKi.Text
        temp.QueQuan = txtQuenQuanDangKi.Text
        temp.CMND = txtCMNDDangKi.Text
        temp.NgaySinh = dtpNgaySinhDangKi.Value.Date
        temp.IDKhachHang = txtIDDangKi.Text
        temp.PassKhachHang = txtPasswordDangKi.Text
        bus.DK_Insert(temp)
        MessageBox.Show("Dang li thanh Cong")

    End Sub

End Class